home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Programming / LEDA / source / src / arith / Itodouble.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-11-16  |  764 b   |  43 lines
  1. /*******************************************************************************
  2. +
  3. +  LEDA  3.1c
  4. +
  5. +
  6. +  Itodouble.c
  7. +
  8. +
  9. +  Copyright (c) 1994  by  Max-Planck-Institut fuer Informatik
  10. +  Im Stadtwald, 6600 Saarbruecken, FRG     
  11. +  All rights reserved.
  12. + 
  13. *******************************************************************************/
  14.  
  15.  
  16.  
  17. #include <LEDA/impl/iint.h>
  18. #include <LEDA/impl/iloc.h>
  19.  
  20.  
  21. /* S. Naeher   (Feb. 1994) */
  22.  
  23.  
  24. double Itodouble (a)
  25.     const Integer * a;
  26. { register double d=0.0;
  27.   register int i;
  28.  
  29.   for (i=a->length-1; i>=0; i--)
  30.   { unsigned long w = a->vec[i];
  31.     unsigned long b;
  32.     for(b = 1<<(LOGPLACE-1); b != 0; b>>=1)
  33.     { d *= 2.0;
  34.       if (w & b) d += 1.0;
  35.      }
  36.    }
  37.   if (a->sign==PLUS)
  38.      return(d);
  39.   else
  40.      return(-d);
  41. }
  42.  
  43.